GroundwaterPointExport Subroutine

private subroutine GroundwaterPointExport(time)

Export of point site data

Arguments

Type IntentOptional Attributes Name
type(DateTime), intent(in) :: time

Variables

Type Visibility Attributes Name Initial
integer(kind=short), public :: k

Source Code

SUBROUTINE GroundwaterPointExport &
!
( time )

IMPLICIT NONE

!Arguments with intent(in):
TYPE (DateTime), INTENT (IN) :: time

!local declarations:
INTEGER (KIND = short) :: k

!-------------------------end of declarations----------------------------------

!set current time
sites % time = time 

DO k = 1, basin % nAquifers
    
    !populate data
    CALL AssignDataFromGrid ( basin % aquifer (k) % head1, sites )
    
    !write data
    CALL WriteData ( sites, fileUnitPointGW (k) )
    
END DO
    
timePointExport = timePointExport + sites % timeIncrement


RETURN
END SUBROUTINE GroundwaterPointExport